﻿Imports SignalR.Hubs
Imports Tajan.Monitoring.Entities.Client
Imports Tajan.Monitoring.Service
Imports Tajan.Monitoring.Entities

<HubName("serverHub")>
Public Class ServerHub
    Inherits Hub

    Public Function getLiveConnections() As List(Of LiveConnection)
        Dim out As List(Of LiveConnection) = (From p In (New Manager).GetLiveConnections Select New LiveConnection With {.BrowserName = p.Browser.Name, .StartDate = p.StartDate, .UserHostName = p.UserHostName, .UserIP = p.UserIP}).ToList
        Return out
    End Function


End Class

Public Class LiveConnection
    Public Property BrowserName As String
    Public Property UserIP As String
    Public Property UserHostName As String
    Public Property StartDate As DateTime
End Class
